function [Ez, Z2]=ant_ran_mp2(Ez,Z2,Na,L,lambda,H,Kmp,Dmp,EA, EAmp, N_mp,td)  //
exec('Rn1.sci');
R=Rn1(EA); 
Rmp=Rn1(EAmp); 
[u,v]=size(R);
Tau=3.3*(-Rmp(1:N_mp,:)*R'+ones(N_mp,u)); // № строки - № точки отражения,  № элемента в строке:
                                                                                // временной сдвиг для сигнала с этим номером
for i1=1:N_mp,
    Tau(i1,:)= Tau(i1,:)*Dmp(i1);
end
//rem = Tau*1.602+1/2 - fix((Tau*1.602+1/2)./1).*1;
r=rem(Tau*1.602+1/2,1);
ph=exp(%i*r*2*%pi);
Tau=round(1e-9*Tau/td);
if Na==3
    exec('antset_quad.sci');
    Pa=antset_quad(Na,L,H);      // Орты базовых линий; Na=3;  (строка - орт базы) 
end
if Na==6
    exec('antset1.sci');
    Pa=antset1(Na,L,H);                // Орты базовых линий; Na=6;  (строка - орт базы) 
end
if Na==1
    Pa=[L,0,0];
end
// PaR=Pa*R';                           // матрица проекций ортов  линии распространения сигналов на ант. базы.
                                                // № строки - это № антенны, № элемента в строке -- № сигнала
PaR=Pa*Rmp';                                                 
PH=exp((2*%pi*%i/lambda)*PaR);            // матрица фазовых сдвигов;  № строки - это № антенны, 
                                                                     //№ элемента в строке -- № сигнала
exec('circshift.sci');
if N_mp>0,
    for   i=1:N_mp,                                            // i - № точки отражения,
        for  k=1:u,                                                 //  k --№ сигнала      
//            A = Ez(k,:)';
//            shift = Tau(i,k);
//            cs = [A(&,:);A(shift:$-1,:)];
//            Ez1(k,:)=Kmp(i)*cs'*ph(i,k); 
            Ez1(k,:)=Kmp(i)*circshift(Ez(k,:)',Tau(i,k))'*ph(i,k);  
            Ez(k,:)=Ez(k,:)+Ez1(k,:);                     
            for    j=1:Na,                                         // j --№ антенны
                Z2(j,:)=Z2(j,:)+Ez1(k,:)*PH(j,k);          
            end;
        end;
    end;
end;

endfunction



